home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_4_print handlers.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  2.8 KB  |  101 lines
  1. global gMasterData
  2.  
  3. on showPrinting
  4.   case getUserArea(gMasterData) of
  5.     #self3:
  6.       getAffirmations()
  7.     #nonpro2:
  8.       getResponses()
  9.     #chefEnd:
  10.       getChefData()
  11.     #plot:
  12.       getGraphPlot()
  13.     #paper:
  14.       getPaperData()
  15.   end case
  16.   case getUserArea(gMasterData) of
  17.     #self3:
  18.       set the editable of member "self statement" to 0
  19.     #nonpro2:
  20.       set the editable of member "memo 1" to 0
  21.       set the editable of member "memo 2" to 0
  22.       set the editable of member "memo 3" to 0
  23.     #plot:
  24.       set the editable of member "situation" to 0
  25.     #paper:
  26.       set the editable of member "paper positive" to 0
  27.     #chefEnd:
  28.       set the editable of member "chef field 1" to 0
  29.       set the editable of member "chef field 2" to 0
  30.       set the editable of member "chef field 3" to 0
  31.       set the editable of member "chef field 4" to 0
  32.   end case
  33.   go(the frame + 1)
  34. end
  35.  
  36. on doNotPrint
  37.   go(the frame - 1)
  38.   updateStage()
  39.   case getUserArea(gMasterData) of
  40.     #self3:
  41.       set the editable of member "self statement" to 1
  42.     #nonpro2:
  43.       set the editable of member "memo 1" to 1
  44.       set the editable of member "memo 2" to 1
  45.       set the editable of member "memo 3" to 1
  46.     #plot:
  47.       stopSound2()
  48.       set the editable of member "situation" to 1
  49.       diskAudio(gMasterData, "56B")
  50.     #paper:
  51.       set the editable of member "paper positive" to 1
  52.     #chefEnd:
  53.       set the editable of member "chef field 1" to 1
  54.       set the editable of member "chef field 2" to 1
  55.       set the editable of member "chef field 3" to 1
  56.       set the editable of member "chef field 4" to 1
  57.   end case
  58.   if getUserArea(gMasterData) <> #plot then
  59.     GoOn()
  60.   end if
  61. end
  62.  
  63. on printData
  64.   go(the frame - 1)
  65.   updateStage()
  66.   stopSound2()
  67.   case getUserArea(gMasterData) of
  68.     #self3:
  69.       set the editable of member "self statement" to 1
  70.     #nonpro2:
  71.       set the editable of member "memo 1" to 1
  72.       set the editable of member "memo 2" to 1
  73.       set the editable of member "memo 3" to 1
  74.     #plot:
  75.       set the editable of member "situation" to 1
  76.     #paper:
  77.       set the editable of member "paper positive" to 1
  78.     #chefEnd:
  79.       set the editable of member "chef field 1" to 1
  80.       set the editable of member "chef field 2" to 1
  81.       set the editable of member "chef field 3" to 1
  82.       set the editable of member "chef field 4" to 1
  83.   end case
  84.   case getUserArea(gMasterData) of
  85.     #self3:
  86.       print(the text of member "affirmation")
  87.     #nonpro2:
  88.       print(the text of member "responses")
  89.     #chefEnd:
  90.       print(the text of member "chef answers")
  91.     #plot:
  92.       print(the text of member "plot results")
  93.       diskAudio(gMasterData, "56B")
  94.     #paper:
  95.       print(the text of member "toss results")
  96.   end case
  97.   if getUserArea(gMasterData) <> #plot then
  98.     GoOn()
  99.   end if
  100. end
  101.